use dataset, clear

twoway kdensity ft_own ///
, ///
subtitle(, size(vlarge)) ///
by(year, style(compact) note("") graphregion(fcolor(white) lcolor(white))) ///
xsize(6) ///
scheme(s2mono) ///
xtitle("Own party thermometer", ///
size(medium) margin(small)) ///
ytitle("Density", size(medium) margin(small)) ///
xlabel(none) ///
ylabel(none) ///
nodraw ///
name(g0, replace)

graph display g0, xsize(6) ysize(4)

gr export "figureA1.eps", replace
